Point Programming 1/PPROG1.ISO/pascal/swag/printing.swg/0043_Get PRINTER Status.pas

Pascal/Delphi Source File | 1995-02-28 | 224 b | 12 lines

function GetPrinterStatus (LPT: Word): Byte;
{Pass 1 in LPT to see if the printer is hooked up.}
begin
  asm
    mov ah,2
    mov dx,LPT
    dec dx
    int $17
    mov @Result,ah
  end;
end;  {GetPrinterStatus}